﻿Public Class FrmThongTinSanPham

   Private Sub btnXemSP_Click(sender As Object, e As EventArgs) Handles btnXemSP.Click
        Dim maphieu As String = txtSP.Text
        If String.IsNullOrEmpty(maphieu) Then
            MessageBox.Show("Xin vui lòng nhập mã phiếu!")
            Exit Sub
        End If

        If (rdoPN.Checked = True) Then
            Dim hd As CapNhatPhieuNhapKho_DTO = CapNhatThongTinSP_DAO.SelectByID(maphieu)
            If hd Is Nothing Then
                MessageBox.Show("Mã phiếu không tồn tại, xin vui lòng nhập lại")
                Exit Sub
            End If
            dgvChiTietSPKho.DataSource = CapNhatThongTinSP_DAO.SelectAllPN(txtSP.Text)
            LoadTongGiaTriHoaDon()
        ElseIf (rdoPX.Checked = True) Then
            Dim hd As CapNhatPhieuXuatKho_DTO = CapNhatThongTinSP_DAO.SelectByIDPX(maphieu)
            If hd Is Nothing Then
                MessageBox.Show("Mã phiếu không tồn tại, xin vui lòng nhập lại")
                Exit Sub
            End If
            dgvChiTietSPKho.DataSource = CapNhatThongTinSP_DAO.SelectAllPX(txtSP.Text)
            LoadTongGiaTriHoaDonPX()
        End If
    End Sub

    Private Sub btnThoat_Click(sender As Object, e As EventArgs) Handles btnThoat.Click
        Me.Close()
    End Sub

    Public Sub LoadTongGiaTriHoaDon()
        Try
            txtTongSanPham.Text = CapNhatThongTinSP_DAO.TotalValue(txtSP.Text)
            ' txtTongSanPham.Text = CapNhatThongTinSP_DAO.TotalValuePX(txtSP.Text)
        Catch ex As Exception
            txtTongSanPham.Text = "không hợp lệ"
        End Try
    End Sub

    Public Sub LoadTongGiaTriHoaDonPX()
        Try
            txtTongSanPham.Text = CapNhatThongTinSP_DAO.TotalValuePX(txtSP.Text)
        Catch ex As Exception
            txtTongSanPham.Text = "không hợp lệ"
        End Try
    End Sub
End Class